home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 June
/
EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso
/
earcd
/
utmisc1
/
esclc20f.lha
/
EasyRexx
/
Bounce.erex
next >
Wrap
Text File
|
1996-03-31
|
534b
|
49 lines
/* EasyCalc 2.0 Arexx Script */
options results
'getresponse "This script makes the cursor bounce around the screen" "_Begin"'
quit = 0
dx=1
dy=1
getmincol
minx = result
getminrow
miny = result
getmaxrow
maxy = result
getmaxcol
maxx = result
cx = minx
cy = miny
easytofront
do while quit < 100
movecursor cx cy
cx = cx + dx
cy = cy + dy
if (cx = maxx - 1) then
dx = -dx
if (cx = minx ) then
dx = -dx
if (cy = maxy - 1) then
dy = -dy
if (cy = miny ) then
dy = -dy
quit = quit + 1
end